library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_15.6.R")

diagnosis_15.5 <- 
  declaration_15.6 |> 
  diagnose_designs(sims = sims, bootstrap_sims = sims, make_groups = vars(outcome))

write_rds(diagnosis_15.5, file = "diagnosis_objects/diagnosis_15.5.rds")
